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MODULE CSPRCPCAC 
>) 
2) TERNAL = GENERAL) 


IDENT = 
ryt rtd, 
ADDRESS 
= 
BEGIN 


leutentenneerenteneenennennerrertereerereetentettnetnetntnatnennennesette 
‘® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE A 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SU 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF 
is TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
ie AND SHOULD NOT BE CONSTRUED AS A COMM 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Cluster Server Process 

; ABSTRACT: Action routine for Recovery Control Process control functions 
} AUTHOR: Paul R. Beck 

: DATE: 9-JUN-1983 Last Edit: 29-JUL-1983 17:59:54 

: REVISION HISTORY: 

; vO3-003 ADE0001 Alan D. Eldridge 10-Feb-1984 

Rename module 

Moe 12 ienaced to CSPRCPEAC.BSS (9 char!) Also, get CSPDER from LIBS. 
t 

v03-001 PRBO215 Paul Beck 26-JUN-1983 21:10 
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Get CSPDEF from SHRLIB. 
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LIBRAR 
REQU] 
LINKAGE 
+ 


EXTERNA 
EXE 


JSB_2 
i External references 


} Require files: 


SY SSLIBRARY: L1B'; 
ties: :CSPDEF'; 


= JSB (REGISTER=2); 


CePSGL SURCT KS 


sc 


LITERA 
LS YSEFA; 


ib 


AX-11 Bliss-3 
SYSLOA.SRCJCS 


=$ep-19be 13:18:66 


define system services 
define CSD offsets 


address of current context block 
system event flag 
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BSBTTL *CSPSRCPCACT = action routine for Recovery Control Process' 
“CSPSRCPCACT 


ania DESCRIPTION: 
on routine yaich runs in the context of the Cluster Server 
Process to rece ve RCP control blocks from other w + n the 
luster end forward them to the local RCP through its input mailbox. 


i 

i 

i 

i 

i 

i CALLING SEQUENC 
sere via CASE table 
i 

i 

i 

i 


FORMAL PARAMETERS: 
(R ertagces® of CSD received for RCPC action routine 
IMPLICIT PA ped RS: 
SDSL SENDOFF = address of RCP control structure. 


COMPLETION CODES: 


GLOBAL ROUTINE CSPSRCPCACT ( CSD: REF BLOCK C,BYTE] ): JSB_2 = 


LOCAL 
RCPC : REF BLOCK C,BYTE), 
CHANNEL 


: WORD 
1088 : VECTOR C2,LONG, 
EXTERNAL RD snout ane 
! common stall routine 
ESP SSRESUAE: ! common completion AST 
STATUS = a it he ( DEVNAM = ZASCID ‘JNLSRCP_INPUT', CHAN = CHANNEL ); 
IF NOT oSTA We THEN ENDOPE TUS; 


RCPC = .CSD ceort. SENDOF 
STATUS = $Q10 ( peg 


ee | 
NOME WN 9 DOONAN EU "OO OONO 


! portion of CSD to fwd to RCP 
! channel 8 RCP input mailbox 
!' Local I0S8 


RiTéveLK, 
ba se 
scl sCURETX, 
CPC CRRPSW_SIZEJ ); 
: Wait for 1/0 to complete. Allow other threads to run. 
IF ~STATUS THEN CSPSSWAIT(); 
; That's all, folks. 


RETURN SDASSGN ( CHAN = .CHANNEL ); 
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. CHA 
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10S 
EXE 
CSP 
CS 
“RC 
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-TITLE CSPRCPCAC 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,.NOEXE ,2 
00 00 54 55 50 4&€ 49 SF 50 43 52 24 4C 4€ $a 88000 P.AAB: .ASCII \JNLSRCP_INPUT\<0><0><0> : 


8 
vou 000 CSPSRCPCACT = action routine for Recovery Contr 1b-sen-1984 HT Han Ce Reta ttt aera ae eee —— 
80060000" Sooty AAAS =hONG PORES 
-EXTRN CSPSGL CURCTX, EXESC SYSEFN 
ae tah oar CBs sSRESUA 
“EXTRN $$010 
“EXTRN. SYSSDASSEN’ 
.PSECT $CODES,NOWRT,2 


5E C2 00000 serencecert: : 


o 
o 


L2 #12, SP ; 

7E 7¢ CLRO. 2s = (SP) : 

08 AE OF PUSHAB CHANNEL : 

0000' F F PUSHAB AAA 3 

000000006 00 4 i CALLS “i TSSSASSIGN ; 
51 16 a3 1 MOVL BLN RCPC ; 

7E 7C OOO1A CLRO P) : 

rE € 0001C CLRQ 9 =(S ; 

7E 08 Al 3C€ 0001 MOVZWL &(RCPC), =(SP) : 

1 dD PUSHL RCP ; 

990000 6 0 PUSHL CSP$GL_CURCTX ; 

G F A PUSHAB CSPSS$RESUM ; 

4 Ar 9 PUSHAB 10s ; 

3 oD PUSHL #4 ; 

7E 28 AE 3C MOVZWL CHANNEL, -(SP) : 

000000006 BF dD 9 PUSHL #EXESC SYSEFN ; 

000000006 00 ¢ FB F CALLS #12, SY¥S$QI0 ; 
7 E9 00 a6 BLBC STATUS, 1$ ; 

000000006 00 00 FB 4 CALLS #0, CSPSSWAIT ; 
: — 3¢ 20 1$ MOVZWL CHANNEL, -(SP) ; 

000000006 Q 1 FB 0005 CALLS #1, SYS$DASSGN : 
E C ¢ 005A 2% ADDL 2, SP ; 

0050 RSB ; 


; Routine Size: 94 bytes, Routine Base: S$CODE$ + 0000 
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PSECT SUMMARY 

Name Bytes Attributes 
SPLITS 4 NOVEC,NOWRT, RD ,NOEXE, wosue’ LCL, REL, poked HEra bth 
SCODES 4 NOVEC, ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
eccosces Syahols ecoceree Pages Processing 

File Total Loaded Percent Mapped Time 

-$255$DUA28: CSYSLIBILIB.L32;1 18619 7 0 1000 00:01.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CSPRCPCAC/OBJ=OBJ$:CSPRCPCAC MSRC$:CSPRCPCAC/UPDATE=(ENH$: CSPRCPCAC) 
Size: 94 i * a data bytes 


un Time 704. 
Flapsed. tees 0: on 
Lines/CPU Min: 2 
nonenee’ ew “Min: 3 

mory Used: 88 pages 
ee ation Complete 
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